Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / togvb25 / togcolor.frm < prev next >

Wrap

Text File | 1996-01-01 | 31KB | 964 lines

VERSION 2.00 Begin Form TogColor BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Toggle Color & Text Properties" ClientHeight = 5445 ClientLeft = 1785 ClientTop = 1965 ClientWidth = 8715 Height = 5850 Left = 1725 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True ScaleHeight = 363 ScaleMode = 3 'Pixel ScaleWidth = 581 Top = 1620 Width = 8835 Begin Frame Frame6 BackColor = &H00C0C0C0& Caption = "Border && Outline Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3075 Left = 180 TabIndex = 28 Top = 2190 Width = 3975 Begin HScrollBar HScroll3 Height = 255 Index = 0 Left = 1140 Max = 10 TabIndex = 29 Top = 1020 Width = 2000 End Begin HScrollBar HScroll3 Height = 255 Index = 1 Left = 1140 Max = 10 TabIndex = 30 Top = 1305 Width = 2000 End Begin Frame Frame5 BackColor = &H00C0C0C0& Caption = "BevelOuter" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1185 Left = 2130 TabIndex = 31 Top = 1680 Width = 1455 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Inset" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 150 TabIndex = 32 Top = 840 Value = -1 'True Width = 800 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Raised" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 150 TabIndex = 35 Top = 570 Width = 800 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 150 TabIndex = 36 Top = 300 Width = 800 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "BevelInner" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1185 Left = 540 TabIndex = 37 Top = 1680 Width = 1455 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 0 Left = 150 TabIndex = 38 Top = 300 Width = 800 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Raised" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 1 Left = 150 TabIndex = 39 Top = 570 Value = -1 'True Width = 800 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "Inset" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Index = 2 Left = 150 TabIndex = 40 Top = 840 Width = 800 End End Begin CheckBox Check3 BackColor = &H00C0C0C0& Caption = "Outline" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Left = 1770 TabIndex = 41 Top = 360 Width = 1635 End Begin Label Label2 BackColor = &H00000000& Height = 315 Index = 2 Left = 1140 TabIndex = 42 Top = 660 Width = 2000 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OutlineColor:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 14 Left = 165 TabIndex = 43 Top = 720 Width = 915 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BevelWidth:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 13 Left = 225 TabIndex = 50 Top = 1050 Width = 855 End Begin Label Label6 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "2" Height = 195 Index = 0 Left = 3240 TabIndex = 51 Top = 1050 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "BorderWidth:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 12 Left = 135 TabIndex = 52 Top = 1350 Width = 945 End Begin Label Label6 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "2" Height = 195 Index = 1 Left = 3225 TabIndex = 53 Top = 1350 Width = 120 End End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Text Offset while Toggle is Pressed" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1005 Left = 4470 TabIndex = 34 Top = 4260 Width = 4050 Begin HScrollBar HScroll1 Height = 255 Index = 2 Left = 1200 Max = 50 Min = -50 TabIndex = 45 Top = 300 Width = 2000 End Begin HScrollBar HScroll2 Height = 255 Index = 2 Left = 1200 Max = 50 Min = -50 TabIndex = 44 Top = 615 Width = 2000 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "PushX:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 11 Left = 630 TabIndex = 49 Top = 330 Width = 510 End Begin Label Label4 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 2 Left = 3270 TabIndex = 48 Top = 345 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "PushY:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 10 Left = 615 TabIndex = 47 Top = 630 Width = 525 End Begin Label Label5 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 2 Left = 3270 TabIndex = 46 Top = 645 Width = 120 End End Begin CheckBox Check2 BackColor = &H00C0C0C0& Caption = "TwoState" Height = 225 Left = 1140 TabIndex = 33 Top = 1590 Width = 1635 End Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "MouseControl" Height = 225 Left = 1140 TabIndex = 21 Top = 1350 Value = 1 'Checked Width = 1635 End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Off Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2055 Left = 4470 TabIndex = 14 Top = 120 Width = 4050 Begin HScrollBar HScroll2 Height = 255 Index = 1 Left = 1170 Max = 50 Min = -50 TabIndex = 3 Top = 1620 Width = 2000 End Begin HScrollBar HScroll1 Height = 255 Index = 1 Left = 1170 Max = 50 Min = -50 TabIndex = 5 Top = 1305 Width = 2000 End Begin TextBox Text1 Height = 315 Index = 1 Left = 1185 TabIndex = 15 Text = "Off" Top = 285 Width = 2000 End Begin Label Label5 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 1 Left = 3255 TabIndex = 9 Top = 1650 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OffY:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 9 Left = 705 TabIndex = 10 Top = 1635 Width = 405 End Begin Label Label4 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 1 Left = 3255 TabIndex = 11 Top = 1350 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OffX:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 8 Left = 705 TabIndex = 12 Top = 1335 Width = 390 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OffCaption:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 5 Left = 300 TabIndex = 20 Top = 330 Width = 825 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OffBackColor:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 4 Left = 120 TabIndex = 19 Top = 660 Width = 1020 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OffForeColor:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 135 TabIndex = 18 Top = 1005 Width = 990 End Begin Label Label2 BackColor = &H000000FF& Height = 315 Index = 1 Left = 1185 TabIndex = 17 Top = 615 Width = 1995 End Begin Label Label3 BackColor = &H00000000& Height = 315 Index = 1 Left = 1185 TabIndex = 16 Top = 945 Width = 1995 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "On Properties" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2055 Left = 4470 TabIndex = 1 Top = 2190 Width = 4050 Begin HScrollBar HScroll2 Height = 255 Index = 0 Left = 1200 Max = 50 Min = -50 TabIndex = 27 Top = 1605 Width = 2000 End Begin HScrollBar HScroll1 Height = 255 Index = 0 Left = 1200 Max = 50 Min = -50 TabIndex = 24 Top = 1320 Width = 2000 End Begin TextBox Text1 Height = 315 Index = 0 Left = 1200 TabIndex = 4 Text = "On" Top = 285 Width = 2000 End Begin Label Label5 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 0 Left = 3270 TabIndex = 23 Top = 1635 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OnY:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 7 Left = 765 TabIndex = 26 Top = 1635 Width = 375 End Begin Label Label4 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 0 Left = 3270 TabIndex = 25 Top = 1335 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OnX:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 6 Left = 765 TabIndex = 22 Top = 1335 Width = 360 End Begin Label Label3 BackColor = &H00000000& Height = 315 Index = 0 Left = 1200 TabIndex = 13 Top = 945 Width = 1995 End Begin Label Label2 BackColor = &H0000FF00& Height = 315 Index = 0 Left = 1200 TabIndex = 8 Top = 615 Width = 1995 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OnForeColor:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 165 TabIndex = 7 Top = 1005 Width = 960 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OnBackColor:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 150 TabIndex = 6 Top = 675 Width = 990 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "OnCaption:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 330 TabIndex = 2 Top = 345 Width = 795 End End Begin TOGGLE Toggle1 AutoSize = 0 'False AVersion = 2.5 BackColor = &H00C0C0C0& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BlinkMode = 0 ' 0 - Never BlinkRate = 0 BorderWidth = 2 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 24 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 915 Left = 630 MouseControl = -1 'True OffBackColor = &H000000FF& OffCaption = "Off" OffForeColor = &H00000000& OffWave = "" OffX = 0 OffY = 0 OnBackColor = &H0000FF00& OnCaption = "On" OnForeColor = &H00000000& OnTimer = 0 OnWave = "" OnX = 0 OnY = 0 Outline = 0 'False OutlineColor = &H00000000& PushX = 0 PushY = 0 Sound = 0 'False TabIndex = 0 Top = 210 TwoState = 0 'False Value = 0 'False Width = 2685 End Begin CommonDialog CMDialog1 Left = 3780 Top = 180 End End Sub Check1_Click () toggle1.MouseControl = check1 End Sub Sub Check2_Click () toggle1.TwoState = check2 End Sub Sub Check3_Click () toggle1.Outline = check3 End Sub Sub Form_Load () hscroll3(0) = toggle1.BevelWidth hscroll3(1) = toggle1.BorderWidth hscroll1(0) = toggle1.OnX hscroll1(1) = toggle1.OffX hscroll1(1) = toggle1.PushX hscroll2(0) = toggle1.OnY hscroll2(1) = toggle1.OffY hscroll2(1) = toggle1.PushY End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 toggle1.OnX = hscroll1(index) Case 1 toggle1.OffX = hscroll1(index) Case 2 toggle1.PushX = hscroll1(index) End Select label4(index) = hscroll1(index) End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 toggle1.OnX = hscroll1(index) Case 1 toggle1.OffX = hscroll1(index) Case 2 toggle1.PushX = hscroll1(index) End Select label4(index) = hscroll1(index) End Sub Sub HScroll2_Change (index As Integer) Select Case index Case 0 toggle1.OnY = hscroll2(index) Case 1 toggle1.OffY = hscroll2(index) Case 2 toggle1.PushY = hscroll2(index) End Select label5(index) = hscroll2(index) End Sub Sub HScroll2_Scroll (index As Integer) Select Case index Case 0 toggle1.OnY = hscroll2(index) Case 1 toggle1.OffY = hscroll2(index) Case 2 toggle1.PushY = hscroll2(index) End Select label5(index) = hscroll2(index) End Sub Sub HScroll3_Change (index As Integer) Select Case index Case 0 toggle1.BevelWidth = hscroll3(index) Case 1 toggle1.BorderWidth = hscroll3(index) End Select label6(index) = hscroll3(index) End Sub Sub HScroll3_Scroll (index As Integer) Select Case index Case 0 toggle1.BevelWidth = hscroll3(index) Case 1 toggle1.BorderWidth = hscroll3(index) End Select label6(index) = hscroll3(index) End Sub Sub Label2_Click (index As Integer) cmdialog1.Color = label2(index).BackColor cmdialog1.Action = 3 label2(index).BackColor = cmdialog1.Color Select Case index Case 0 toggle1.OnBackColor = cmdialog1.Color Case 1 toggle1.OffBackColor = cmdialog1.Color Case 2 toggle1.OutlineColor = cmdialog1.Color End Select End Sub Sub Label3_Click (index As Integer) cmdialog1.Color = label3(index).BackColor cmdialog1.Action = 3 label3(index).BackColor = cmdialog1.Color Select Case index Case 0 toggle1.OnForeColor = cmdialog1.Color Case 1 toggle1.OffForeColor = cmdialog1.Color End Select End Sub Sub Option1_Click (index As Integer) toggle1.BevelInner = index End Sub Sub Option2_Click (index As Integer) toggle1.BevelOuter = index End Sub